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1  INTRODUCTION 

Results  of  measaremeiits  in  the  infrared  wave  band  (IR)  strongly  depend  on  transmission  of 
radiation  through  the  atmosphere.  In  most  cases  an  equqtment  like  a  transmissometer  is  not 
available  at  the  measurement  site.  Not  only  the  transmission  dqtends  on  meteorological 
conditions,  but  also  the  thermal  behaviour  of  materials.  Solar  heating  for  exan^le  has 
considerable  influence  on  the  surface  tenqterature  of  sand,  soil  or  roads.  To  study  the  temporal 
behaviour  of  targets  and  backgrounds  in  the  IR  wave  band  as  a  function  of  these  parameters,  it  is 
necessary  to  register  several  meteo  parameters  during  IR  measurements.  Therefore  FEL-TNO 
combined  high  quality  sensors,  power  supplies  and  a  data  acquisition  system  to  establish  an 
automatic  meteorological  station.  The  data,  provided  by  die  qtstem,  can  be  stored  on  disk  and 
presented  on  screen,  using  a  BASIC  programme  on  an  IBM-PC. 
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2  MEIBOROLOGICAL  PARAMETERS 

For  future  analysis  it  must  be  avoided  to  be  depeident  on  odier  dian  standard  sensors,  to  be  able 
to  make  use  of  single  portable  weather  statimis.  Standard  parameters  are  temperature,  relative 
humidity,  air  pressure,  wind  speed  attd  direcdcxi,  hemi^dterical  radiation  (0.3  -  3  pm)  and 
precipitation.  An  additional  parameter  dud  is  valuable  for  IR  research  is  hemispberical  radiation 
in  3  -  SO  pm.  High  quality  sensors  that  measure  these  parameters  are  commercially  available. 
Other  parameters  of  interest  to  IR  radiation  measurements  are  clondcoverage,  cloudbase  height, 
visibility  and  tmbulence.  The  sensors  to  measure  these  parameters  have  limited  possibilities  and 
accuracies,  if  they  are  available  anyway.  They  are  very  eiqtensive  and  therefor  seldmn  part  of  a 
standard  weather  observation  set  The  weather  station  described  in  this  report  contains  all 
standard  sensors  plus  a  pyrgeometer  to  measure  longwave  hemis{dierical  radiation  (3  •  SO  pm),  in 
total  eight  different  sensors.  The  sensor  specifications  are  described  in  diis  clupter. 

2.1  Air  temperature  and  relative  humidity 

Air  temperature  and  relative  humidity  ore  measured  with  a  combined  sensor,  die  Vaisala  HMP 
123Y.  The  tenqierature  range  is  -2S  to  +45  *C,  with  a  coiresponding  ouqnu  of  0  to  20  mA. 
The  sensor  is  a  platinum  resistance  Pt-100, 100 12  at  0  *C.  The  temperature  accuracy  is  ±0.3  ‘C  at 
20  °C.  The  relative  humidity  is  measured  widi  a  Humicap  (capacitive  humidity  sensor)  ranging 
fiom  0  •  100  %  (0>20  mA  output).  The  accuracy  in  the  range  0  -  80  %  is  2  %,  fiom  80  -  100  %  it 
is  3  %.  The  power  input  is  220  VAC,  SO  Hz.  The  HMP  123Y  is  placed  in  a  weadier  hut  to  be 
protected  against  direct  radiation  and  (uecqntation  (see  fdioto  2.1). 
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FhotoT.!  WeMherhotwMiHMP  123  YaadpRMBTBicniar. 

2^  Air  premie 

The  air  preaaore  ia  ineaaiiied  wia  a  aneroid  Thiea  baro-senaor,  type  3.11S0.10.000.  b  is  specially 
designed  for  eoviroiiineml  condbioiit  as -20  *C  to -tWX:  and  hiph  hnmiditiea.  The  tenaor  range 
ia  946  to  1053  mbar  widi  tewperatuie  cocgteaialion.  Tbe  output  are  read  over  two  resiitance 
valnea  (voltagea).  When  a  rqxescats  foe  fraction  of  foe  total  pnasare  range  0)  £  a  S  1),  foe 
resistances  are: 

R12  -  40  ^  200  a  - 160  02  (Q) 

R23  -  80 120  o  •  160  02  (Q) 

R13- 120.0(0). 

The  sensor  is  placed  in  foe  weather  hot  Qilioto  Zl). 
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2.3  Wind  speed  and  direction. 

The  wind  speed  sensor  is  from  Thies,  type  43303.22.000.  This  sensor  gives  44  pulses  per  frill 
rotation  of  die  cups.  Each  puls  is  a  14  VDC  signal  The  sensor  can  be  used  to  measure  wind 
speeds  ranging  from  0.3  to  40  m/s  and  can  be  eiqiosed  to  qieeds  up  to  60  m/s  widiout  damage. 
The  puls  frequency  at  40  m/s  is  800  Hz.  The  puls  frequency  is  linear  piopartimial  to  die  wind 
speed. 

The  wind  direction  soisor  is  also  from  Thies,  type  4.312032.001.  The  wind  direction  is  measured 
over  358°,  widi  an  accuracy  of  03°,  and  transduced  to  resistance  values.  The  2°  blind  angle  is  at 
die  South  position.  A  full  rotation  covers  resistance  values  starting  from  90.0  Cl  at  1°  from  Soudi 
position  (East  side)  to  ISS.O  O  at  North  position  and  down  to  40.0  O  at  1°  from  Soudi  position  at 
the  West  side. 

Both  wind  sensors  have  internal  heating  elements.  The  operational  tenqierature  lange  is  -35  to 
■»60  °C.  A  Thies  power  supply  unit,  type  9.3386.(X).000,  is  used  for  die  wind  ^eed  sensor  and 
heating  elements.  For  power  supply  and  data  two  separate  cables  ate  used.  The  maxiinum 
distance  from  sensors  to  power  siqiply  is  50  m.  The  sensors  are  mounted  at  10  m  level  on  a  T- 
fiame  on  top  of  a  mast,  including  a  laming  crmductor.  Photo  2.4  shows  die  sensors  in  die  mast 
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Photo  1.3,  Wind  mait  with  lenian  md  lighming  coDdacmr. 

2.4  Radiation 

2.4.1  Shortwave  radiation 

For  dus  pmpoae  a  &  Zonen  pyranocaeter,  type  CMll  "aolarimeter",  is  used.  Hie  CMll  is 
laovided  with  a  dienual  detectn'.  A  thermopile  is  fonned  by  abont  200  diermocoiiples  iin|)rinted 
on  a  circiilar  AI2O3  substrate  (hig]i  diermal  conductivity)  asaig  ddck  film  techniqnes,  The  100  hot 
junctions  ate  near  die  centre  in  a  rotational  symmetric  arrangmeitt.  The  cold  junctions  are  ahaig 
die  border,  which  is  in  good  diermal  coidact  widi  die  case.  When  die  pyranometer  is  iUumiiiated 
there  will  be  a  heat  flow  from  the  centre  to  die  border  of  die  substrate  in  radial  direction.  This  heat 
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flow  is  proportional  to  the  absotptance  of  the  black  paint  on  the  substrate  (3M  Velvet  Black)  and 
the  irradiance. 

Temperature  dependency  of  some  physical  quantities,  like  conductivity,  are  compensated  by  a 
thermistor,  tqiplied  in  the  electric  circuit,  to  keep  sensitivity  constant  Doing  so,  die  dependency 
of  ambient  tenqierature  is  limited  to  ±  1%  over  at  least  a  temperature  range  of  -10  “C  to  40  °C. 
The  dieimopile  is  protected  against  wind  by  two  Schott  KS  glass  dtunes.  The  inner  dome  blocks 
the  radiation  exchange  between  diermopile  and  outer  dome,  necessary  for  a  stable  and  small  zero 
offset  The  transmission  of  the  glass  limits  the  ^lectral  range  of  die  instrument  to  0.308  -  2.730 
pm.  A  dessicator  in  the  housing  prevents  dew  on  the  inner  sides  of  the  domes  at  cold  nights. 

A  second  not  illuminated  thermopile  is  installed  to  compensate  for  heat  flows  in  the  sensing 
element  not  caused  by  radiation. 

The  sensitivity  at  20  ‘’C  is  4.86  pV/Wm*^.  Photo  2.3  shows  the  CMl  1  solarimeter  (left  on  fdioto). 
2.4.2  Longwave  radiatitm 

For  measuring  the  longwave  radiation  an  Eppley  radiometer  (pyrgeometer),  type  PIR  (Precision 
Infrared  Radiometer),  is  used.  A  silicon  dome  covers  the  thermopile  and  limits  the  spectral  range 
to  4  -  50  pm.  The  ouqmt  of  the  pyrgeometer  is  4.56  pV/Wm-*.  The  tenqierature  conqiensation 
covers  the  range  of  -20  “C  to  440  ‘C.  In  photo  2.3  the  sensor  is  shown  at  the  right  side. 
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Photo  2.3  Radiatiao  MosofB  on  (op  of  wsather  hot 


2.5  Ptec^tation 

This  sensor  is  frcnn  the  manufacteter  Lambrecht,  type  1S18H3.  The  princ4)Ie  is  a  balanoe  with  a 
volurae  of  twice  2.0  ml,  which  tilts  over  after  being  filled  by  precqritatica  at  one  side.  Each  (me 
the  balance  tilts  over  a  reed-relay  causes  a  pulse  at  the  ouqnit.  The  measuring  surface  is  200  cm^ 
so  die  resolution  is  0.1  mm  precipitation  per  square  meter.  The  maxnnnm  intensity  that  can  be 
measured  is  1J5  mna/min. 

The  power  siqiply,  Lambrecht  1519H,  is  necessary  for  the  heating  to  ensure  proper  functioning 
down  to  -25  *C.  ^diout  precqiitation  there  is  a  constam  15  VDC  signal  on  die  output  chamwJ 
Photo  2.4  shows  the  sensor. 
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Photo  2.4  Pteciptatioa  lenaor. 


2.6  Total  weaAer  station 

The  total  weather  sttikn  consists  of  four  parts: 

1.  An  airconditioaed  cabin  in  which  the  IBM-PC  is  placed,  including  Ae  graenl  power  sqiply 
(220  VAQ. 

2.  The  mast  widi  both  wind  tensors  wind  direction  ud  wind  qpeed,  bodi  placed  tm  a 

specially  prepared  top  mast 

3.  The  main  stand  containing  the  weather  hut  wMi  temperature,  hnmidtty,  air  pleasure  and 
radiation  tensors  and  a  box  with  power  siq^lies  and  die  Solartron  S-net  aquisitian 
system  (photo  2.1) 

The  precipitatioa  sauor  is  placed  sqiantely  in  die  field 
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3  DATA  ACQUISITION 

The  different  sensors  offer  a  variety  of  data  formats.  The  data  acquisition  system  that  was  chosen 
is  a  Schlumberger  -  Solartron  Instruments  "S-net”.  The  system  consists  of  two  Isolated 
Measurement  Pods  (IMP),  an  analog  (type  3S9S1C)  and  a  digital  IMP  (type  3S9S2A),  and  a 
special  Solartron  Instruments  adapter  card  in  the  PC,  used  to  read  the  data  from  the  IMPs  and 
supply  power  to  the  IMPs.  This  is  done  by  a  single  cable  with  a  length  of  100  m  (maximum  1 
km).  Both  IMPs  can  handle  20  channels.  The  analog  IMP  measurement  ranges  ate  DC  volt^es 
&om  1  pV  to  12  V  (10  nA  to  20  triA  with  100  —  shunt)  and  several  thermocouple  types.  Results 
from  all  20  channels  are  read  in  1  second.  The  sample  rates  of  the  digital  IMP  are  20  Hz,  1,  10 
and  100  kHz.  The  input  functions  are  measurements  of  fiequency  (49  kHz  max),  periods 
(resolution  10  ps)  and  counts  (24  bits).  The  digital  IMP  is  used  for  the  precipitation  and  the  wind 
speed  sensor,  all  the  other  sensors  are  connected  to  the  analog  IMP.  The  IMPs  are  closed  black 
boxes  (photo  2.1  below  tight). 

3.1  Software  programme  meteo 

To  scan  all  sensors  continuously  a  programme  was  written  in  BASIC  language,  called  METEO.  It 
runs  within  BASICA  and  uses  Solartron  Instruments  subroutines  to  activate  IMPs.  Appendix  A 
shows  a  listing  of  the  programme.  It  starts  measurements  every  5  minutes,  scanning  all  sensors 
during  4  minutes  and  45  seconds.  The  remaining  IS  seconds  are  used  for  calculations  and  to  save 
the  data.  The  programme  saves  and  displays  the  averaged  data  of  the  last  5  minutes.  The  user  can 
choose  between  display  of  averaged  data  or  display  the  currently  measured  data  by  softkey  input. 
In  case  of  a  power  failure  the  programme  restarts  automatically.  An  output  example  is  shown  at 
Appendix  B. 
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4  CABLES  AND  CONNECTORS 

All  the  cables  and  connectors  used  in  this  weather  station  are  described  in  this  ch^ter.  The 
coiresponding  codes  can  be  found  on  the  cables. 

1.  code:  220-MAINS 

Cable  type  3*1.0  imn^. 

Connector  :  Souriau  840.25.132.001  and  840.25.870.501. 

Connections  :  1  =  220  VAC  (+),  2  =  220  VAC  (-),  3  =  ground. 

2.  code:  220-T+RH 

Cable  type  :  3*1.0  mm^. 

Connector  Souriau  840.25.172.001  and  840.25.830.501. 

Connections  :  1  =  220  VAC  (+),  2  =  220  VAC  (-),  3  =  ground. 

3.  code:  SD-PIR.RAD 

Cable  type  6*0.5  inm^  shielded. 

Connector  :  Bumdy  MS-3120-E-12-10S  and  MS-3126-F-12-10P. 

Connections  :  A  =  low  (pyrgeometer)  =  blue 

B  =  high  (pyrgeometer)  =  red 
C  =  high  (thetmopile)  =  white 
D  =  thermistor  »  yellow 
E  =  thermistor  =  green 
F  =  ground  =  black 

Connected  to  S-net: 

IMP  3595 1C,  Channel  13,  high  =  red,  low  =  blue  (=  ground). 
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4.  code:  MS-PREOP 

Cable  type  4*1.0  mm*. 

Connector  BuindyMS-3120-E-10-6SandMS-3126-F-10-6P. 

Connections  ;  A  =  42  VAC  (+)  =  yellow/grecn 

B  =  42  VAC  (-)  =  brown 
C  =  — 

D  =  contact  =  blue 
E  =  contact  =  black 
F  =  — 

Connected  to  S-net: 

IMP  3S952A,  Channel  2,  SP2  open,  hipnt  =  green,  Common  =  brown. 

5.  code:  DATAREG,  S-NET 

Cable  type  3  wired  16  AWG  twisted  pairs. 

Connector  Souriau  840.2S. 172.001  and  840.2S.830.S01. 

Connections  :  high  =  white,  low  =  black,  ground  =  shield. 

Connected  to  S-net: 

IMP  3S9S2A  :  120  (1  termination,  grounded. 

6.  code:  SP-WIND.DIR. 

Cable  type  3*0.75  mm*  shielded 

Connector  Burndy  MS-3130-E-12-3PandMS-3136-F-12-3S 

Connections  :  A  *  +10  VDC  =  green 

B  =  0VDC  =  bruin 
C  =  sliding-contact  =  white  (yellow) 

Connected  to  S-net: 

IMP  3S9S  1C,  Channel  9,  hi^  =  green,  low  =  yellow  (ground  =  low). 

Channel  10,  high  =  white,  low  =  brown  (ground  •  low). 
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7.  code:  SP-AIRPR. 

Cable  type  3*0.75  nun*  shielded. 

Connector  :  Bumdy  MS-3130-E-12-3PandMS-3136-F-12-3S. 

Connections  :  1  =  +10  VDC  =  white  (on  connectonC) 

2  s  sliding  contact  -  green  (on  connector:  A) 

3  =  0  VDC  =  brown  (on  connector:B) 

Connected  to  S-net: 

IMP  3595 1C,  Channel  5,  high  =  white,  low  =  yellow  (ground  =  low). 

Channel  6,  high  =  green,  low  =  brown  (ground  =  low). 

8.  code:  SD-T+RH. 

Cable  type  3*0.75  nan^  shielded. 

Connector  :  Bumdy  MS-3130-E-12-3P  and  MS-3136-F-12-3S. 

Connections  :  1  =  relative  humidity  =  green  (A) 

2  =  ground  =  brown  (B) 

3  =  tenqjcrature  =  white  (C) 

4  =  220VAC(+) 

6  =  220  VAC  (-) 

Connected  to  S-net: 

IMP  35951C,  Channel  1,  temperature, 

high  =  white,  low  =  brown  (ground  =  low) 

1(X)  (2  shunt  over  high  and  low 

Channel  2,  relative  humidity, 

hi^  =  green,  low  =  brown  (ground  =  low) 

1(X)  (2  shunt  over  high  and  low 
low  (Channel  1)  >  low  (Oiannel  2). 
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9.  code:  SD-CMll.RAD, 

Cable  type  :  4*0.S  mm^  shielded. 

Connector  :  Bumdy  MS-3 1 10-E-8-4S  and  MS-3 1 16-F-8-4P. 

Connections  :  A  =  high  =  ted  (ctnnector  to  IMP:green) 

B  =  — 

C  s  low  ae  blue  (connectoT  to  IMP:btown) 

D  =  ground  »  white+black  (connector  to  IMPrwhite) 

Connected  to  S-net: 

IMP  3593 1C,  Channel  17,  high  =  green,  low  =  brown  (ground  ^  low). 

10.  code:  MS-WIND.SP+Q, 

Cable  type  6*0.75  min^  shielded. 

Connector  Cannon  CA-3101  and  CA-3102  (20-7). 

Connections  :  A  =  +12  VDC  =  gtey 

B  =  0  VDC  =s  yellow 
C  =  puls  s  green 
D  =  26VAC/3A(+)  =  pink 
E  =  26  VAC/3A  (-)  =  brown 
F  =  ~ 

Connected  to  S-net; 

IMP  359S2A,  Channel  1,  SPl  open,  input  <=  green,  common  s  brown. 
Figure  4. 1  shows  die  connector  pannel  in  the  power  supply  box. 
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The  codes  on  the  cables  consist  of  two  parts.  The  first  part  indicates  the  signal  flow,  die  second 
part  describes  the  type  of  data.  All  codes  are  listed  below  and  conespond  with  the  used  labels. 
220-(type)  220  VAC  to  indicated  sensor  or  power  supply 

MS-(type)  Mains  power  supply  to  Sensor 

SP-(type)  Sensor  to  Power  (to  read  resistance  data) 

PD-(type)  Power  (data)  to  Data  acquisition  (S-net) 

SD-(type)  Sensor  to  Data  acquisition  (S-net) 

Datareg  Data  legislration  on  EBM-PC  (S-net) 

—  Ground 


(type)= 

-MAINS 

-+/-15V 

-T+RH 

-AIRPR 

-PRECIP 

-WIND.DIR 

-WIND.SP 

-WIND.SP-tQ 

-CMll.RAD 

-PIR.RAD 


220  VAC  to  weather  staticH) 

Klaasing  power  stqiplies 

Ten^ierature  and  relative  humidity 

Airpressure 

Precipitation 

Wind  direction 

Wind  speed 

Wind  speed  and  heating  (both  sensors) 
Shortwave  radiation 
Longwave  radiation 
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4. 1  Connections  at  isolated  measurement  pods 


The  channels  that  are  used  of  both  IMPs  are  listed  below. 
IMP35951C: 


Channel 

Parameter 

High 

Low/Ground 

Remaiks 

01 

Ten^ieratuie 

white 

brown 

100  O  shunt 

02 

Rel  Humid. 

green 

= 

100  Cl  shunt 

03 

Airpressure 

white 

yellow 

06 

= 

green 

brown 

green=yellow 

09 

Wind.dir 

green 

yellow 

10 

= 

white 

brown 

yellowKwhite 

13 

Pyrgeometer 

red 

blue 

17 

Solaiimeter 

red 

blue/black-f  white  to  connector 

from  connector 

green 

brown 

to  IMP 

IMP339S2A: 

Channel 

Parameter 

Output 

Input 

Common  Remaiks 

01 

Wind.speed 

- 

green 

brown  Rated 

02 

Ihecip 

- 

green 

brown 

4.2  Additional  power  st^ply 

Three  connector  blocks  ate  mounted  together  in  a  box,  as  shown  in  fig.  4.2  One  has  7  sod  two 
have  3  connections.  The  block  widi  7  connections  has  -IS  VDC  on  die  second,  -t-lS  VDC  on  the 
thiid  and  fourth  (from  left  to  right)  and  is  used  to  tappfy  the  prec^tation  sensor.  The  Mocks  wifli 
3  connections  have  bodi  10  VDC  on  die  two  most  right  cotmections  and  sensor  onqmt  on  die 
middle.  They  ate  used  for  air  pressure  and  wind  dhection. 
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5  CONCLUSIONS 

To  suppon  IR  ffleasurenKats  FEL-TNO  combined  high  perfonnance  sensors  to  a  dedicated 
automatic  weadier  station.  The  software  "METBO.BAS”  performs  the  measurements,  can  handle 
eiTors  and  distinguishes  incmiect  values  within  certain  ranges.  It  is  sufficiently  protected  against 
moisture  and  dust  and  suitable  for  all  European  environmental  conditions.  The  weather  station 
can  operate  unattended  for  at  least  a  week,  depending  on  data  storage  cifiacity.  During  IR 
measurements  a  minimnni  of  attention  can  be  given  to  this  station. 


A.N.  de long 
(groupleader) 


(audior) 
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METEO  Software  listing 


10 


20 

«****« 

****** 

k***** 

30 

***** 

**** 

«*** 

**** 

k***** 

40 

***** 

*  ***  * 

**** 

******** 

***********  *** 

***** 

50 

***** 

**  *  ** 

**** 

******** 

**** 

60 

***** 

***  *** 

**** 

******** 

******  ***** 

**** 

70 

***** 

**** 

******** 

**********  ***** 

**** 

to 

***** 

**** 

******** 

***********  *** 

***** 

90 

***** 

**** 

******** 

******** 

k***** 

100 

* ****** 

****** 

********** 

k***** 

110 

120 

121 

130 

140 

ISO 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 


Progran  for  checking  neteo-data  with  the  Solartron  S-nat,  display 
these  data  on  screen  and  write  to  disk  <C\METEO\MMMDDy¥.CAL) , 
using  Solartron-SchluDberger  subroutines. 

These  subroutines  are: 

IMPINIT  INITiaXisation  of  the  attached  IMP'S 

IMPTX  Transnita  a  Character  string  to  an  IMP 

IMPTEST  TESTS  for  data  availability  from  IMP  and  straaa 

IMPNKMERIC  Retrieves  NUMERIC  data  from  an  IMP 

IMPSTRING  Retrieves  character  (STRING)  data  from  an  IMP 

(Also  numeric  without  changing  the  result  format) 


DAD 

CAD 

IMPAD 

ATT 

FOUND 

IMPER 

ADR 

STR 

IMPTXS 

TXER 

RXER 

DAV 

POD 

CHA 

ACT 

MT 

MK 

SCR 

KPR 


Driver  ADdreas 
Card  ADdrass 
IMP  ADdress 
ATTached 
IMP  FOUND 
IMP  ERror 
ADdRess 
STReam 
Character  string 


for  IBM  PC/XT  :  AOOO 

analoog  (1C)  on  01  ,  digital  (2A)  on  02 
IMP  to  adaptor  card 

error  indication  :  IMP  attached  or  not 


IMP 

type  of  data  from  IMP 
(X)  to  be  Transmitted  to 


IMP 


Transmit  Charater  string  (X)  ERror 
State  of  IMP  ERror 
Data  Available  on  IMP, 

IMP  number  1  or  2 

CHAnnel  number  1  to  20 

ACTivated  key  F2  0  or  1 

Msteo  Tabel  active 
Metao  Key  active 
SCReen  full  indication 
Key  PRessed 


0  or  1 


0  or 
0  or 
0  or 


Timing  Parameters 
TIM 
DAVg 
DMVg 
HONTH5 
START$ 

INTERVAL 
END. TIME 
A,B 
DELTA 


FUNCTION  converts  time  to  seconds 
FUNCTION  converts  date  to  string-date 
Date  in  String  format 
Name  of  the  months  for  DNY$ 

TINE  of  next  scan,  first  coning  rounded  5  minutes 
Time  interval  in  which  scanning  takes  place 
Sum  of  last  two  mentioned  parameters 
Clock  during  scanning,  before  and  after  CAU, 
Difference  between  B  and  A  :  time  per  scan 


METEO  parameters 

SCAN  •  SCAN  number  during  INTERVAL 

RES  ••  RESults  data  per  channel 

RAH  •  RAN  data  per  channel,  same  as  RES 

STA  -  STAtus  significance  of  data 

SIGN  -  SIGNificance  of  data  per  channel,  same  as  STA 

IMP. DATA  •  (Sum  of)  RESults,  data 

STATUS  •  Significance  of  data 


COUNT 

MUHBIR 


Amount  of  additions  per  channel 
COUNT,  fitting  to  METEO.ARRAV 
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640 

CHANNELS 

650 

METEO. ARR 

660 

670 

—  .CAL 

680 

—  .CUR 

690 

—  .VOL 

700 

— .  FRE 

710 

TEMP.- 

720 

RHUM.- 

730 

AIRPl.- 

740 

AIRP2.- 

750 

PRES.- 

760 

AIRP.BAR 

770 

ANGLEl 

780 

ANGLE2 

790 

Al.- 

800 

A2.- 

810 

A.- 

820 

-.SIN 

830 

-.COS 

840 

FWS 

850 

ws 

860 

SX  ,  SY 

870 

HIND. DIR 

880 

PIR.- 

890 

CMll.- 

900 

WISP.- 

910 

FREQ 

920 

RAIN.- 

930 

PRECIP.KM 

940 

PULS 

941 

FILEMS 

942 

FILETS 

943 

DRIVES 

950 

*  *1 

«  Text  of  neasured  quantities  for  RAW  data  display 
f  “  METEO  data,  8  different  types 

CALibration  factor 
CURrant  neasured  by  IMP 
VOLtaqe  neasured  by  IMP 
FREquency 

TEMPerature,  .DEG  for  unity:  DEGrees  celcius 
Relative  HUMidity,  .PRO  for  unity:  percents 
AIRPressure  of  first  channel,  5 
AIRPressure  of  second  channel,  6 

airPRESsure  in  nbar,  calculated  per  channel  on  .5  and  .6 
Average  AIRPressure  in  nbar 
Wind  direction  of  first  channel,  channel  9 
Wind  direction  of  second  channel,  channel  10 

-  of  ANGLEl 

-  of  ANGLEl 

Sun  of  all  Al.-  and  A2.-  of  the  sane  type  (SIM  or  COS) 
SIN  of  ANGLEl  or  ANGLE2 
COS  of  ANGLEl  or  ANGLE2 
Frequency  of  Hind  Speed  per  scan 

Wind  Speed  per  scan  for  wind  direction  calculations 
Sun  of  all  X  (Y)  conponents  of  HS*Ai.COS  (HS*Ai.SIH) 
Calculated  HIND  DIRection 

Precision  Infrared  Radioneter,  .RAO  for  RADlance  in  H/a2 
Solar ineter  CMll,  .RAD  for  RADiance  in  H/n2 
Hind  speed,  .HPS  for  unity:  Meters  Per  Second 
FREQuency 

RAIN,  .MIN  for  unity:  per  MINute 

Amount  of  PRECIPitation  during  INTERVAL  In  MM 

Anount  of  PULSss  neasured  by  IMP 

METEO  output  file 

THERMOCOUPLE  output  file 

Currant  drive  for  writing  data 


EEEEEEEE 

EE 

EE 

EEEEEE 

EE 

EE 

EEEEEEEE 


TTTTTTTTTT 

TT 

TT 

TT 

TT 

TT 

TT 


960  CLS 
970  KEY  OFF 
980  ' 

990  'LOGO  DISPLAY 
1000  ' 

1010  PRINT"  - 

1020  PRINT 

1030  PRINT*  MMMM  MMMM  EEEEEEEE  TTTTTTTTTT 

1040  PRINT"  MM  MM  MM  MM  EE  TT 

1050  PRINT*  MM  MM  MM  MM  EE  TT 

1060  PRINT"  MM  MMM  MM  EEEEEE  TT 

1070  PRINT*  MM  MM  EE  TT 

1080  PRINT*  MM  MM  EE  TT 

1090  PRINT*  MM  MM  EEEEEEEE  TT 

1100  PRINT 

1110  PRINT*  - 

1120  PRINT 

1130  PRINT  TAB(12) ;*Progran  Nana*;TAB(37) ;*:  METEO. BAS* 

1140  PRINT  TAB(12} /"Developed  and  written  by  :  Ing.  R. 

1150  PRINT  TAB(12) /"Date  written«;TAB(37) 13  january 
1160  PRINT  TAB(12) /"Last  revised*/TAB(37) /*:  13  january 

1170  PRINT 

1180  PRINT  TAB(21) /"Physics  and  Electronics  I,aboratory  TNO* 
1190  PRINT  TAB(2S) /"Oude  Waalsdorperweg  63” 

1200  PRINT  TAB(32) /"P.O.  Box  96864* 

1210  PRINT  TAB(30) /"3509  JG  The  Hague* 

1220  PRINT  TAB(31);"The  Netherlands" 

1230  PRINT  TAB(29) /"Tel.  (31)  70  3264221” 

1240  ' 


EEEEEEEE 

EE 

EE 

EEEEEE 

EE 

EE 

EEEEEEEE 


00000 
00  0 
00 
00 
00 

00  0 
00000 


METEO. BAS* 

Ing.  R.  van  dsr  Touw* 
13  january  1990* 

13  january  1990* 
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1250  ’DEFINE  BLOCK 
1260  ■ 

1270  CLEAR  ,  (HFOOO  ,  1024 
1280  DAO%  -  tHFOOO 
1290  CAD%  -  (HAOOO 
1300  ON  ERROR  GOTO  6140 
1310  • 

1320  DIM  ATT%(2)  ,IMPAD%(2)  ,RES(20)  ,STA%(20)  ,MONTHS(12) 

1330  DIM  RAW(17) ,SIGNt(17) .CHANNEL$(17) 

1340  DIM  IMP.DATA(20,2) ,STATUS%(20,2) ,COUNT»(20,2) 

1350  DIM  METEO.ARRAy(17) ,NUMBER%(17) 

1360  ■ 

1370  DEF  FN  TIM(TIMS) -36Q0«VAL(TIM$) +60«VAL(MID$  {TIM$,  4 , 2) ) +VAL(R1GHT$  (TIMS,  2) 
1380  DEF  FN  DAYS  (DAT$)-MID$  (DATS,  4 , 3)+HONTHS  (VAL(LEFTS  (DATS,  2)  )  ) +RIGHTS  (DATS,  5 
1390  FOR  A.lNDEX-1  TO  12 
1400  READ  MONTHS (A. INDEX) 

1410  NEXT 

1420  DATA  J AN, FEB, MAR, APR, MAY, JUN,JUL, AUG, SEP, OCT, NOV, DEC 

1430  FOR  Jt-1  TO  17 

1440  READ  CHANNELS (Jt) 

1450  NEXT 

1460  DATA  Tenp(DA) ,RelHun(nA) ,Airpr(V) , Airpr (V) ,Hinddir(V) ,Hinddir (V) 

1470  DATA  FarlR(V) ,N«arIR(V) ,Windsp(c) ,Precip(c) 

1471  DATA  Tamp  1.5(C), Temp  >.1(0), Temp  -.5(C), Temp  conc(C) 

1472  DATA  Temp  5(C), Tamp  7.5(C), Tamp  (PIR) 

1480  ACTt'O 

1485  FIN%-0 

1490  INTERVAL-280 

1500  GOTO  1520 

1510  FOR  1-1  TO  4000: NEXT 

1520  FOR  I-l  TO  1000: NEXT 

1530  DMYS-FN  DAYS (DATES) 

1531  DRIVES  -  ■C:\METEO\DATA\" 

1532  FILEHS-DRIVES+MIDS  ( DMYS ,  4 , 3 )  +LEFTS  (DMYS ,  2 )  +RIOHTS  (DMY$ ,  2 )  +"M" 

1533  OPEN  FILEMS  FOR  APPEND  AS  #1 

1540  FILETS-DRIVES+MIDS  (DMYS ,  4 , 3 )  +LEFT$  (DMYS ,  2 )  +RIGHTS  (DMYS ,  2 )  +"T" 

1550  OPEN  FILETS  FOR  APPEND  AS  #3 
1560  BLOAO''INPDRIVE.HAC<’,DAO% 

1570  IHPTX  -  DAOt 

1580  IKPTEST  -  DAOt+3 
1590  IKPNUMERIC  -  DA0t46 
1600  IMPSTRING  -  DAD%+9 
1610  IMPINIT  -  DA0%412 
1620  IMPA0%(1)-1 
1630  IHPAD%(3)-2 
1640  ATT%(1)-1 
1650  ATTt(2)-l 
1660  ' 

1670  '  IMP  INITIALISATION 
1680  • 

1690  FOUNO%-0 

1700  CALL  IMPINIT  (CAD%,ATT«(1)  ,FOUND8) 

1710  IF  FOUND«<>0  THEN  IMPER%-1:LINEREP-1700:GOTO  6290 
1720  • 

1730  '  KEY  FUNCTION  BLOCK  1 
1740  • 

1750  ON  KEY  (1)  GOSUB  1780 

1760  KEY  (1)  ON 

1770  GOTO  1810 

1780  ON  KEY  (10)  COSUB  5940 

1790  KEY  (10)  (W 

1800  RETURN 

1810  ON  KEY  (2)  GOSUB  6000 
1820  KEY  (2)  ON 
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1830  ON  KEY  (3)  GOSUB  6060 
1840  KEY  (3)  ON 
1850  ■ 

1860  '  IMP  COMMANDS 
1870  ■ 

1880  AS-"RE;AR;" 

1890  BS-"CH1M0500;CH2M0500;CH3M0360;CH4M0360;CH5M0100;CH6M0100;CH7M0360;CH8M03 
1900  C$-"CH9M0100;CH10M0100;CH11M0360;CH13M0100;CH15M0360;CH16M0360;CH17M0100; 
1910  DS»"CH1M0740;CH1RA4;CH2M0740;" 

1920  E$-"CO" 

1930  IMI>TX$-A$+B$+C$+ES 
1940  TXEB%-0 

1950  CALL  IMPTX  (IMPADl (1) , 1MPTXS,TXER%) 

1960  IF  TXERloO  THEN  IMPER%-2:LINEREP-1950:GOTO  6290 
1970  IMPTXS«A$+D$+ES 

1980  CALL  IMPTX  (IMPAD% (2) , IMPTXS,TXER%) 

1990  IF  TXER%<>0  THEN  IMPER%-2:LINEREP-1980:GOTO  6290 
2000  KPR%-0 
2010  • 

2020  ■  SCAN  BLOCK 
2030  • 

2040  WHILE  KPR%<>2  AND  IMPERt-O 
2050  IF  KPR%-2  THEN  6640 
2060  ADR%-0 

2070  IMPTXS-»TR" 

2080  TXER%-0 

2090  CALL  IMPTX  (ADR* , IMPTXS,TXER») 

2100  IF  TXER*<>0  THEN  IMPER*-2!LINEREP-2090:GOTO  6290 

2110  DAVt-0 

2120  WHILE  IMPER*»0 

2130  CLSsLOCATE  25,1 

2140  PRINT  TAB(53) ;"F1+F10  to  EXIT" 

2150  WHILE  DAV*>0  AND  IHPER*-0 

2160  FOR  ADRt-1  TO  2 

2170  STRt«0 

2180  RXER*-0 

2190  CALL  IMFTEST(ADR*,STR*.RXER*) 

2200  IF  RXER*— 1  THEN  IMPER*«3;LINEREP-2190:GOTO  6290 

2210  IF  RXER*-1  THEN  DAV*-1 

2220  NEXT 

2230  WEND 

2240  IF  DAV»-0  THEN  960 

2250  ' 

2260  '  RESET  BLOCK 

2270  ' 

2260  FOR  PODt'l  TO  2 

2290  IF  PO0*-l  THEN  CHA%-17  ELSE  CHA%-2 

2300  FOR  I*-l  TO  CKA* 

2310  IMP.DATA(I%,PODt)-0 

2320  STATUS* (It, POD* )-0 

2330  COUNT*(I*,1)-0:COUNT*{I*,2)-1 

2340  NEXT 

2350  NEXT 

2360  Nt>0 

2170  A. SIN-0 

2360  A.COS-0 

2390  SX-0 

2400  SY-0 

2410  SCANt-0 

2420  MTt-0 

2430  HXt-0 

2440  ' 

2450 
2460 


'  PRINT  HEADING 
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2470  COLOR  0,7 

2480  LOCATE  3,20:PRINT  "  « 

2490  LOCATE  4,20:PR1NT  “  Data  from  IMP  35951C  and  IMP  35952A.  " 

2500  LOCATE  5,20:PRINT  "  « 

2510  DMY$-FN  DAYS (DATES) 

2520  LOCATE  9,28:PRINT  "  " 

2530  LOCATE  10,26:PRINT  "  Date  :  ";DMYS;"  " 

2540  LOCATE  11,28:PRINT  "  » 

2550  ' 

2560  •  START  TIME  SETTIHG 

2570  ' 

2575  'GOTO  2873 

2580  STARTS-"HH:MM:SS« 

2585  IF  TIMES-"24:00:00"  OR  FN  TIM(TIMES)  <18  THEN  STARTS»''00:00:00":GOTO 

2587  TIMS-TIMES 

2590  ON  VAL(M1DS(TIMS,5,1))+1  GOTO  2600,2600,2600,2600,2600,2630,2630, 

2600  MIDS(STARTS,5,l)-''5" 

2610  MIDS ( STARTS , 1 , 4 ) -MIDS {TIMS ,1,4) 

2620  GOTO  2870 

2630  MIDS(STARTS,5,l)-"0" 

2640  ON  VAL(MIDS(TIMS,4,1))+1  GOTO  2650,2650,2650,2650,2650,2710 

2650  MS-MIDS(TIMS,4,1) 

2660  V-ASC(MS) 

2670  V-V+1 

2680  MIDS(STARTS,4,1)-CHRS(V) 

2690  MIDS ( STARTS , 1 , 2 ) -MIDS (TIMS ,1,2) 

2700  GOTO  2870 

2710  MIDS ( STARTS, 4, l)-«0" 

2720  ON  VAL(MIDS(TIMS,2,1))+1  GOTO  2730,2730,2730,2790,2730,2730,2730, 

2730  HS-MIDS(TIMS,2,1) 

2740  V-ASC(HS) 

2750  V-V+1 

2760  MIDS(STARTS,2,1)-CHRS(V) 

2770  MIDS ( STARTS , 1 , 1 ) -MIDS (TIMS ,1,1) 

2780  GOTO  2870 

2790  OH  VAL (LEFTS (TIMS, 1))+1  GOTO  2730,2730,2800 

2800  MIDS(STARTS,2,l)-"0" 

2810  OH  VAL(LEFTS(TIMS,1))+1  GOTO  2820,2840,2860 

2820  MIDS (STARTS, 1,1 )-"l" 

2830  GOTO  2870 

2840  MIDS(STARTS,l,l)-"2" 

2850  GOTO  2870 

2860  MIDS(STARTS,l,l)-"0" 

2870  MIDS(STARTS,7,2)-"00" 

2873  IF  FIN8-1  THEN  3393 

2880  LOCATE  17, 10: PRINT"  "  : LOCATE  17, 53: PRINT" 

2890  LOCATE  18, 10: PRINT"  Actual  time  "  : LOCATE  18, 53: PRINT"  Next 

2900  WCATE  19, 10: PRINT"  "  ; LOCATE  19, 53: PRINT" 

2910  LOCATE  20,10:PRINT"  ";TIMES;"  ":LOCATE  20,53:PRIHT"  ":S 

2920  LOCATE  21,10:PRINT"  "  .'LOCATE  21,53:PRIMT« 

2923  'IF  VAL{RIGHTS(TIMES,2))  <>  0  THEN  2880  'Alleen  bij  starten  op  hale  minu 

2924  'STARTS-TIMES 

2930  IF  KPR%-2  THEN  6630 

2935  IF  FN  TIH(TIMES) <18  THEN  2960 

2940  IF  RIGHTS(TIHE$,2)<>"00"  THEN  2880 

2950  IF  VAL(MIDS{TIMES,5,1))<>0  AND  VAL(MIDS (TIMES,  5, 1) )  <>5  THEN  2880 

2960  COLOR  7,0 

2970  Bl-FN  TIH(TIMES) 

2990  IF  *!>0  AND  Bl<863001  THEN  3030  ELSE  CLOSE  #l:CLOSE  #3:GOTO  1510 

3030  Al-FM  TIM(TINE$) 

3035  1MPTX$-"CL1;CL2" 

3040  TXERt-0 

3050  CALL  IKPTX(IKPA0(2),IKPTX$,TXER%) 

3060  IF  TXERtoO  THEN  IHPER%-2:LINEREP-3050:GOTO  6290 
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END.TIMEi=(FN  TIM ( STARTS )) ♦INTERVAL 

FOR  TEL-1  TO  1500: NEXT 

CLS 

I 

'  5  MINUTES  SCAN  LOOP 

I 

WHILE  AUEND.TIME! 

IF  KPR%-2  THEN  6640 
A!=-FN  TIM(TIME$) 

SCAN»-SCAN%+1 
FOR  P0D%=1  TO  2 
ADR%-PODt 
STR%=0 
RXER%=0 

IF  POD»=l  THEN  CHA%-17  ELSE  CHA%-2 

CALL  IMPNUMERIC  (ADR%,  STR%  ,RES  (1)  ,  STA%  ( 1)  ,  CHA»  ,RXER%) 

IF  RXERtoO  THEN  IMPER»-2:LINEREP-3210:GOTO  6290 

IF  PODt-1  THEN  3260 

DELTA!-B!-A! 

B!-A! 

FOR  I%=1  TO  CHA% 

IF  STA%(I»)— 31  THEN  3320 
IF  POD%-2  THEN  3310 

ON  1%  GOSUB  3600,3600,3882,3883,3660,3660,3884,3885,3730,3 
■  channel  123456789 
GOTO  3320 

ON  H  GOSUB  4000,4060 
'  channel  1  2 

NEXT 
NEXT 

ON  ACT%+1  GOSUB  5640,5330 
WEND 
< 

•  DATA  ACQUISITION 

1 

FIN»«l!GOTO  2580 

IF  STARTS-" 00: 00! 00"  THEN  FIHS-"24 : 00: 00"  ELSE  riN$-STARTS 

FIN»-0 

P0D%-1 

CHA»-17 

FOR  I%-1  TO  CHA% 

IF  COUNT»(I%,POD»)-0  THEN  COUNT»{I»,POD»)-1 

IMP . DATA ( H , POD» ) -IMP . DATA ( I« , POD%) /COUNTS (1% , POD* ) 

STATUS*  ( I  * ,  POD* )  -  INT  ( STATUS*  ( I* ,  POD* )  /  COUNT*  ( I  * ,  POD* )  •  1 0 )  / 10 
NEXT 

GOSUB  4430 

PRINT  #1, DATES;","; FINS;",", -SCAN* 

FOR  M*-l  TO  8 

PRINT  #l,USING"+#/F#.//";METEO.ARRAY{M*) ; 

PRINT  #1,","; 

PRINT  #1, USING"//#" ;NUMBER*(M*) 

NEXT 

PRINT  #3 , DATES ; " , " ; FINS ; " , " ;SCAN* 

FOR  M*-9  TO  15 

PRINT  /3,USING"+///#.//";METEO.ARRAy(M*) ; 

PRINT  #3,","; 

PRINT  /3, USING"///", -NUMBER* (M*) 

NEXT 

WEND 

WEND 


SELECTION  OF  DATA  ,  IMP  1C 
T  ,  MODE  500,  0-20  aA 
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3590  • 

3600  RAH(I%) 
3610  SIGN%(I»)  - 
3620  IF  KES(It) 
3630 
3640  ' 

3650  ' 

3660  J% 

3670  RAW(J%) 
3680  SIGNt(J%)  ' 
3690  IF  RES(I%) 
3700 
3710  ' 

3720  ' 

3730  J% 

3740  RAW(J%] 
3750  SIGN%(Jt)  < 
3760  IF  RES(I%) 
3770 
3780  ' 

3790  • 

3800  RAV9(7) 

3810  SIGN%(7)  > 
3820  RAW(8] 

3830  SIGN%(8)  •• 
3840  IF  RES(It) 
3850 

3860  IF  RES(It) 
3870 

3880  IF  RES(I8) 

3881 

3882  RAW(ll) 

3883  RAH(12) 

3884  RAH(13) 

3885  RAN(14) 

3886  RAN(15) 

3887  RAH(16) 

3888  RAH(17) 


■  FES(H) 

■  STA\(I%) 

>  25  THEN  3950 

GOTO  3860 


■  I»-2 

■  RES(H) 

■  STA»(1%) 

>2.5  THEN  3950 

GOTO  3860 


^  I%-4 
’  RES{1%) 

'  STA%(I%) 

>  2!  then  3950 

GOTO  3860 


RES (13) 

STA%(13) 

RES(17) 

STA»(17) 

>1.5  THEN  3950 

GOTO  3880 

<  0  THEN  3950 

GOTO  3890 

<  -1  THEN  3950 
GOTO  3890 


RH,  NODE  500,  0-20  mA 


Airpr  1,  MODE  100,  0-2.5  V 
Airpr  1,  MODE  100,  0-2.5  V 


Wind. dir  1,  MODE  100,  0-2.0  V 
Wind. dir  2,  MODE  100,  0-2.0  V 


PIR  , 
CMll, 


MODE  100,  0-2  bV 
MODE  100,  0-2  aV 


SIGNt(ll) 
SIGN%(12) 
SIGN* (13) 
SIGN%(14) 
SIGN%(15) 
SIGN* (16) 
SIGN! (17) 


STA%{3) 
STA%(4) 
STA%(7) 
STA%(8) 
STA%(11) 
STA%{15) 
STA%(16) 
100 
•  0 

+  STA%(1%) 
+  1 


RES(3) 

RES(4) 

RES (7) 

RES (8) 

RES (11) 

RES (15) 

RES ( 16 ) 

3889  IF  RES(It)  <  -100  OR  RES(It)  > 

3890  IF  RES(I%)  -  0  AND  STA%(H)  ■ 

3900  STATUS%(I»,1)  »  STATUS* (18 , 1) 

3910  COUNT*(I*,l)  -  COUNT*(I*,l) 

3920  IF  I*-9  THEN  GOSUB  4220 
3930  IF  I*-10  THEN  GOSUB  4280 

3940  IMP.DATA(I*,1)-  IMP.DATA(I», 1)+  RES(I*) 
3950  RETURN 
3960  • 

3970  • 

3980  ' 

3990  • 

4000  Jt 
4010  RAH(J*) 

4020  SIGN%(Jt) 

4030  IF  RES(I*) 

4040 
4050  • 

4060  J* 

4070  RAW(Jt) 

4080  SIGNt(J*) 

4090  IF  RES(It) 

4100  IF  SCAN*  <  4 
4110  IF  RES(It)  <' 

4120  'IF  I*  -  1 
4130  COUNT*(I*,2) 


GOTO  3889 
GOTO  3889 
GOTO  3889 
GOTO  3889 
GOTO  3889 
GOTO  3889 

THEN  3950 
THEN  3950 


I*  +  8 

RES(I*) 

STA*(It) 

>  1000000! 

THEN  4150 

GOTO  4110 

I*  4  8 
RES (It) 
STA%(I%) 

'  10000! 

THEN 

4150 

1 

THEN 

4130 

0 

THEN 

4150 

THEN 

GOSUB 

-  COUNT* (18, 

2)  +  1 

SELECTION  OF  DATA  ,  IMP  2A 
Hind. Spend,  MODE  740,  O-lE+5  c 


Precip,  MODE  740,  O-lE+3  c 


'this  part  ie  out  of  use 
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IHP.DATA(It,2) 

RETURN 


RES (It) 


CONVERSION  OF  RAH  DATA  TO  KETEO  DATA 


WIND  DIRECTION 


ANGLEl  -  381.5  *  RES(9)  -  111.8  'Was  389.3  »  RES(9)  -  287.71 
IF  ANGLEl  >360  THEN  ANGLEl=ANGLEl-360 
Al.SIN  -  SIN  (ANGLEl  /  57.2958) 

Al.COS  -  COS  (ANGLEl  /  57.2958) 

A. SIN  -  A. SIN  +  Al.SIN 
A. COS  -  A. COS  +  Al.COS 

RETURN 

ANGLE2  >  -380.9  *  RES(IO)  *  841.6  'was  -389.4  *  RES(IO)  +  651.67 
IF  ANGLE2  >  360  THEN  ANGLE2=ANGLE2-360 
A2.SIN  -  SIN  (ANGLE2  /  57.2958) 

A2.COS  -  COS  (ANGLE2  /  57.2958) 

A. SIN  «  A. SIN  +  A2.SIN 
A. COS  -  A. COS  +  A2.COS 


FWS  -  IMP.DATA(1,2)  /  DELTA! 

HS  -  .0494  *  FHS  +  .47 

SX  -  SX  +  WS  *  Al.COS  +  HS  *  A2.COS 

SY  -  SY  +  WS  •  Al.SIN  +  WS  *  A2.SIN 


RETURN 

'this  part  is  out  of  use 
'this  part  is  out  of  use 
IS  'this  part  is  out  of  use 

:N  'this  part  is  out  of  use 

!N  'this  part  is  out  of  use 


TEMPERATURE 


'  TEMP. CAL  (SC/mA) 

PODt  -  1 

TEMP. CAL  -  3.5 

CHt  -  1 

NUMBERt(l)  -  COUNTt (CHt, PODt) 

TEMP.  CUR  -  IMP.  DATA  (CHt,  PODt) 

TEMP. DEG  •  TEMP. CUR  •  TEMP. CAL  -  25! 

METEO. ARRAY (D-  (INT(TEMP.DEG  •  100))  /  100 


RELATIVE  HUMIDITY 


•  RHUM.CAL  (t/mA) 

RHUM.CAL  -  4 

CHt  -  2 

NUMBERt(2)  •  COUNTt (CHt, PODt) 

RHUM.CUR  -  IMP. DATA (CHt, PODt) 

RHUM.PRO  -  RHUM.CUR  •  RHUM.CAL 

IF  RHUM.PRO  >  100  THEN  RHUM.PRO  -  100 
METEO. ARRAY (2)-  (INT(RHUM.PRO  *  100))  /  100 


A1RPRE5SURE 


CHt  -  5 

HUMBERt(3)  -  COUNTt (CHt, PODt) 

AlRPl.VOL  -  IMP. DATA(CHt, PODt) 

CHt  -  6 

NUHBERt(3)  •  (NUMBERt(3)  +  COUNTt (CHt, PODt ) ) 

AIRP2.VOL  -  IMP. DATA (CHt, PODt) 

PRES. 5  -  -87.635  *  AlRPl.VOL  *  1140.39 

PRES. 6  -  91.42401  *  AIRP2.VOL  *  853.87 

AIRP.BAR  -  (PRES. 5  +  PRES. 6)  /  2 

METEO. ARRAY (3)-  (INT(AIRP.BAR  •  100))  /  100 


HIND  DIRECTION 
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4770 

4780 

4790 

4800 

4BX0 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

49X0 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

50X0 

5020 

5030 

5040 

5050 

5060 

506X 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 
508X 

5082 

5083 

5084 

5085 

5089 

5090 
5095 
5100 
5X10 
5120 
5130 
5140 
5150 


'  A. SIN  +  A. COS 

NUMBER%(4)  •  C0UNT%(9,1)  ♦  COUNT%(10,1) 

WIND. DIR  «  ATN  (A. SIN  /  A. COS)  ♦  57.2958 

IP  A. COS  <  0  THEN  4840  'was  4830 

'IF  A. SIN  >  0  THEN  4840 

WIND. DIR  «  WIND. DIR  +  180 

WIND. DIR  «  WIND. DIR  *  180 

IF  WIND. DIR  >  360  THEN  WIND. DIR  «  WIND. DIR  -  360 
KETEO.ARRAY(4)  «  (INT(WIND.DIR  *  100))  /  100 

I 

•  LONG  WAVE  RADIATION 


PIR.CAL 

CH» 

NUMBERt(5) 
PIR.VOL  » 

PIR.RAD 

HETEO.ARRAY(5)> 

I 


PIR.CAL  (4.56  itV/m-2) 

4.56E-06 

13 

COUNT* (CH%,POD%) 
IMP.DATA(CH»,POD») 

PIR.VOL  /  PIR.CAL 
(INT{PIR.RAD  .  100))  /  100 


SHORT  HAVE  RADIATION 


CMll.CAL  > 

CH% 

NUMBER* (6) 
CMll.VOL 
CMll.RAD 
METEO.ARRAy(6)- 

I 


CMll.CAL  (4.86  mV/Wib-2) 

4.86E-06 

17 

COUNT* (CH*, POD*) 

IMP. DATA (CH*, POD*) 

CMll.VOL  /  CMll.CAL 
(INT(CM11.RAD  *  100))  /  100 


TEMPERATURE  Cu-Co 


•DIRECT  TEMPERATURES,  NO  CONVERSION  CH'«  3,4,7,8,11,15,16 


CH* 

NUMBER* (9) 

METEO.ARRAV(9) 

CH* 

NUMBER* (10) 
METEO. ARRAY (10) 
CH* 

NUMBER* (11) 
METEO. ARRAY (11) 
CH* 

NUMBER*(12) 
METEO. ARRAY (12) 
CH* 

HUMBER* (13) 
METEO. ARRAY (13) 
CH* 

NUMBER* (14) 
METEO. ARRAY (14) 
CH* 

NUMBER* (15) 
METEO. ARRAY(15) 


100))  /  100 
in  Al-plpa/ground 

100))  /  100 
in  Al-pipa/ground 

100))  /  100 


3  *1.5  m  beside  HMP123y 
COUNT* (CH*, POD*) 

( INT  ( IMP.  DATA  (CH* ,  POD*) 

4  '-0.1 
COUNT* (CH*, POO*) 

( INT ( IMP . DATA (CH* , POD*) 

7  *-0.5 
COUNT* (CH*, POD*) 

( INT ( IMP . DATA (CH* , POD* ) 

8  'surface  concrete  dispersal 
COUNT* (CH*, POO*) 

( INT (IMP. DATA (CH*, POD*)  *  100))  /  100 
11  '.5  n  in  wind  nast 

COUNT* (CH*, POD*) 

( INT (IMP. DATA (CH*, POD*)  *  100))  /  100 

15  '.7.5  B  in  wind  Bast 
COUNT* (CH*, POD*) 

(INT(IMP.DATA(CH*,POD*)  *  100))  /  100 

16  'testXapje  pyrgeoBeter 
COUNT* (CH*, POO*) 

(INT(IMP.DATA(CH*,POD*)  •  100))  /  100 


'  WIND  SPEED 


•WISP.FRE  -  FREQ  (Hi)  -  WISP.MPS  (B/s) 

POD*  -  2 

CH*  -  1 

NUMBERt(7)  -  COUNT* (CH*, POD*) 

WISP.FRE  -  IMP. DATA (CHt,POC*) 

FREQ  -  WISP.FRE  /  (INTERVAL  - 


3  •  INTERVAL  /  SCAN*) 
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5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5335 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5452 

5453 

5454 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5645 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 


WISP.MPS 

METEO.ARRAY(7)- 

I 

•  PRECIPITATION 


.04959  •  FREQ  +  .279996 
(INT(WISP.MPS  •  100))  /  100 


•PULS  -  RAIN.FRE  (min-1)  -  RAIN. MIN  (mB/mln) 
CH% 

NUMB£Rt(8) 

PULS 

RAIN.FRE 
RAIN.  MIN 
PRECIP.KM 
METEO.ARRAY(8) 

RETURN 


COUNT* (CH%,POD») 

IMP. DATA (CH*, POD*) 

60  *  PULS  /  (INTERVAL  •  3  *  INTERVAL  /  SCAN*) 
.0995  *  RAIN.FRE  -f  .0006#  *  RAIN.FRE*2 
(INTERVAL  -  3  *  INTERVAL  /  SCAN*)  *  RAIN. MIN  / 
(INT(PRECIP.MM  •  100))  /  100 


60 


'  RAW  DATA  PER  SCAN 


IF  KPR*-2  THEN  6640 
IF  SCR*-1  THEN  5360 
CLS 

SCR*-1 
LOCATE  1,1 
COLOR  0,7 

PRINT  "  Metno  data  of  ";DMY$ 

COLOR  7,0 
•PRINT 

PRINT  TAB(5)  ;^^IMP^*;TAB(10)  ; ••TYPE^' )TAB(31)  ;"RESULT^';TAB(51)  ;^>STATUS^> 

PRINT  •• - 

FOR  J*-l  TO  8 

PRINT  TAB(5);^'  1  •• /TAB  ( 10)  ;CHANNEL$(J*)  ;TAB(30)  ;RAW(J»)  ;TAB(50) ;  SIGN*  ( 
NEXT 

FOR  J*-ll  TO  17 

PRINT  TAB(5);^'  1  ••, -TAB (10)  (CHANNELS (J*)  ;TAB(30)  (RAW(J»)  (TAB (50)  , -SIGN*  ( 
NEXT  J* 

•COLOR  0,7 
•PRINT 


•PRINT  ••  Meteo  data  from  IMP  2  '•;TAB(70) ;••  " 

•PRINT 
•COLOR  7,0 
FOR  J*«9  TO  10 

PRINT  TAB(S);^^  2  ••  (TAB (10)  (CHANNELS (J*)  ;TAB(30)  ;RAN(J*)  ;TAB(51)  (SIGN*  ( 
NEXT 
•PRINT 
COLOR  0,7 

PRINT  TAB (10)  (••TIME  :••  (TAB (30)  (TIMES ,'TAB{51)  ("SCAN:  ••(SCAN*(TAB(70)  (•• 
COLOR  7,0 
' PRINT : PRINT : PRINT 

PRINT  TAB(10)(^^F2  to  display  METEO  dnta^';TAB(51)  (•’Fl+FlO  to  EXIT'^ 

RETURN 


•  METEO  DATA  PER  5  MINUTES 


IF  KPR*-2  THEN  6640 
LOCATE  1,58 

mm"  TIME  ;  ••(TIMES 
IF  MT*-1  THEN  5900 
CLS:COLOR  0,7 

PRIHT^'  METEO  DATA  Of  •'(DMYS)"  at  "(FINS;"  " 

COLOR  7,0 
PRINT: PRINT 

PRINT  USING^<Tanperatur«  (<C)  :  4##f .##^';HETEO.AItXAy (1) 

PRINT  USINC^'  CU-CO  (-  0.5  ■)  :  '4###.##”;METBO.ARRAY( 

PRINT  DSING^’Ralativa  HuMldity  (t)  :  ###.##^';NETEO.ARRAy(2) 

PRINT  USING"  Cu-CO  (-  0.1  ■)  ;  4###.##«;NETC0.ARItXy( 
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5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6291 

6292 

6293 

6294 

6295 
6300 
6310 
6320 
6330 


PRINT  USING"Airpressure  (nbar) 

PRINT  USING"  Cu-Co  (concrete) 

PRINT  USINa"0.3-3  pn  Radiation  (H/d2) 


PRINT  USING" 


Cu-Co  (+  1.5  B) 


PRINT  USING"4-50  itn  Radiation  (H/d2) 


PRINT  USING" 


Cu-Co  (4-  5  B) 


PRINT  USING"Wind  Speed  (n/s) 
PRINT  USING" 


+////.#/" 

+////.##" 


♦///.##"; METEO . ARRAY { 
;METE0.AItRAy(6) 

.ft"!  METEO .  ARRAY  ( 
;METEO.ARRAY(5) 

+/// .  0/  "  ;METEO .  ARRAY  ( 
;HETEO.ARRAy(7) 

*000.00''!  HETEO .  ARRAY  ( 
:METEO.ARRAy(4) 

-METEO .  ARRAY  ( 
;METEO.ARRAy(8) 


Cu-Co  (4  7.5  B) 

PRINT  USING"Wind  Direction  («)  :  000.00' 

PRINT  USING"  Cu-Co  (PlR-cup) 

PRINT  USING"Precipitation  (bb/5  Bln)  :  000.00* 

LOCATE  24,1 

PRINT  TAB(10);"F3  to  display  RAW  data";TAB(53) ;"F14ri0  to  EXIT"; 

KKt-1 

MT%-1 

RETURN 


•  KEY  FUNCTION  BLOCK  2 

I 

IF  KPRYoO  THEN  5960 

XPR%-2 

RETURN 

I 

'  ACTIVATE  F2  KEY  TO  DISPLAY  5-MIN  AVERAGES  METEO  DATA 

I 

ACT»-0 

SCRt-0 

RETURN 

I 

•  ACTIVATE  F3  KEY  TO  DISPLAY  RAW  DATA 
( 

ACT%-1 

MK%>>0 

KT»-0 

SCR%-0 

RETURN 

I 

'  ERROR  TRAPPING  AND  RECOVERING 

f 

IF  ERR>6  THEN  ERREP-ERR:LINEREP-ERL:GOTO  6240 
IF  ERR>11  THEN  ERREP-ERR:LINEREF-ERL:GOTO  6240 
IF  ERR-24  THEN  ERREP«ERR:LINEREP-ERL:GOTO  6240 
IF  £RR«25  THEN  ERREP>ERR;LINEREP>ERL:GOTO  6240 
IF  ERR-51  THEN  ERREP-ERR:LINEREP>ERL:COTO  6240 
IF  ERR-57  THEN  ERREP«ERR;LINEREP-ERL:GOTO  6240 
IF  ERR>61  THEN  ERREP-ERR:LINEREP>ERL:GOTO  6240 
IF  ERR-69  THEN  £RREP>ERR:LINCREP-ERL:GOTO  6240 
IF  ERR-72  THEN  ERREP-ERR:LINEREP-EBL:GOTO  6240 
GOTO  6440 

OPEN  DRIVE$4"ERR0R.HET"  FOR  APPEND  AS  02 

PRINT  #2 ,  DMYS  ;  " ,  "  !  TIMES  ;  " ,  S YSTEM,  ■  ; ERREP;  " ,  " ; LINEREP 

CLOSE  02 

RESUME 

t 

OPEN  ORIVE$4"ERROR.HET"  FOR  APPEND  AS  02 
IF  FOUNDloO  THEN  ERREP-1504FOONO%;OOrO  6300 
IF  TXERYoO  THEN  ERREP-2S04TXER%  :GOTO  6300 
IF  RXERloO  THEN  ERREP-3504RXER%  :GOTO  6300 
IF  IMPERtoO  THEN  ERREP«4504IMPER%:GOTO  6300 
ERREP-999 : LIHEREP-99999 1 

PRINT  02 , DMYS ;  " ,  " , -TIMES ; " ,  IMP,  " ; ERREP LINEREP 
CLOSE  02 


RESET  ERROR  FLAG  RXER%  :-l  to  0  (IMPERt) 
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<340  ■ 

6350  IF  ADR%-2  THEN  6400 

6360  N%-12 

6370  A$-SPACE$(N%] 

6380  E%-0 

6390  CALL  IMPSTRIHG(ADR%,STRt, A$,Ht,E%) 

6400  GOTO  1560 
6410  • 

6420  ■  IRRECOVERABLE  ERROR  IN  BASIC  -  STOP  PROGRAMME 
6430  ■ 

6440  CLS; LOCATE  4,19 

6450  PRINT  "•*•*»•***•»«**••«»•**♦*«*•***«»********•*•**»»" 
6460  LOCATE  5,19 

6470  PRINT  "  A  systen  error  ie  found  in  line  :  ";ERL 
6480  LOCATE  6,19 

6490  PRINT  *  The  error  number  ie  :  *;ERR 

6500  LOCATE  7,19 

6510  PRINT  "••*****•«**•««»•**•****•****♦•**»****•***•***•» 

6520  FOR  I-l  TO  3000: NEXT 

6530  IF  ERR-61  OR  ERR-67  THEN  6550 

6540  RESUME  1250 

6550  CLS 

6560  LOCATE  4, 15: PRINT  "  - DISK  FULL -  » 

6570  LOCATE  6, 15: PRINT  "  PUT  AN  EMPTY  DISK  IN  DRIVE  D:  « 

6577  LOCATE  7, 15: PRINT  •  RESTART  METEO.BAS  WITH  P2  " 

6580  KEY  ON 
6590  END 
6600  • 

6610  *  END  OF  METEO  PROGRAMME 
6620  • 

6630  COLOR  7,0 
6640  CLS 
6650  COLOR  0,7 

6655  ENDFILE$-MID$  (OMY$ ,4,3)  -fLEFTS  (DMY$ ,  2)  +RICHT$(DMY$,  2) 
6660  LOCATE  6,23  :  PRINT  <■ 

6670  LOCATE  7,23  :  PRINT  ■  Last  METEO-DATA  stored  in  file 

6680  LOCATE  8,23  :  PRINT  ■ 

6690  LOCATE  9,23  :  PRINT  *  ";ENDFILE$+"II";" 

6700  LOCATE  10,23  :  PRINT  * 

6701  LOCATE  11,23  :  PRINT  ■  Last  THERMOCOUPLE-DATA  in  fils 

6702  LOCATE  12,23  :  PRINT  " 

6703  LOCATE  13,23  :  PRINT  "  ";ENDFILES+*T";" 

6704  LOCATE  14,23  :  PRINT  " 

6710  LOCATE  15,23  :  PRINT  "  End  of  programme. 

6720  LOCATE  16,23  :  PRINT  •• 

6730  COLOR  7,0 
6740  LOCATE  24,1 
6750  KEY  ON 
6760  END 
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METEO  Output  exan^Ie 


P»ge 

6.1 


04-01-1990,00:05:00,  49 
-24.5,  5 

+0.0,  2 
+1029.4,  49 
+88. 0,  98 
+283.7,  49 
+0.0,  49 
+2.9,  48 
+0.0,  4 

04-01-1990,00:10:00,  52 
-24.5,  1 

+0.0,  1 
+1029.4,  52 
+88.7,104 
+283.6,  52 
+0.0,  52 
+3.3,  52 
+0.0,  4 

04-01-1990,00:15:00,  52 
-24.5,  3 

+0.0,  4 

+1029.4,  52 
+84.6,104 
+283.9,  52 
+0.0,  52 
+2.9,  52 
+0.0,  4 

04-01-1990,00:20:00,  52 
-24.5,  4 

+0.0,  1 
+1029.4,  52 
+87.4,104 
+283.5,  52 
+0.0,  52 
+2.7,  52 
+0.0,  4 

04-01-1990,00:25:00,  52 
-24.5,  1 

+0.0,  1 
+1029.4,  52 
+89.6,104 
+283.0,  52 
+0.0,  52 
+2.9,  52 
+0.0,  4 

04-01-1990,00:30:00,  52 
-24.5,  6 

+0.0,  1 
+1029.5,  52 
+89.1,104 
+282.6,  52 
+0.0,  52 
+3.1,  52 
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Mtoo  doto  block  (8  paraMtars) 

Mtoo  paraaiotor  i 

ftui^or  of  valid  acana  of  paraaatar  i 
and  bloek  It) 


